perm filename PUTSBR[S,DWP] blob sn#123564 filedate 1974-10-05 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(PUTPROP @DDT (NUMVAL (*GETSYM @DDT)) @SUBR)
C00003 ENDMK
CāŠ—;
(PUTPROP @DDT (NUMVAL (*GETSYM @DDT)) @SUBR)

(DE PUTSUBR ()
  (MAPC (FUNCTION (LAMBDA (L)
			(MAPC (FUNCTION (LAMBDA (X) (PROG (Y)
					 (COND
						((AND (OR (SETQ Y (GET X @SUBR))
							  (SETQ Y (GET X @FSUBR))
							  (SETQ Y (GET X @LSUBR)) )
						      (NULL (*GETSYM X)) )
						 (*PUTSYM (PRINT X)Y) )
					 ) ) ) )
			       L ) ) )
	OBLIST) 
   @EXPR)